home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #074 (1990-06)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #074 (1990-06)(Amiga User Group Deutschland e.V.).adf / Widerstände & Berechnung / REIHENSCHALTUNG (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  6KB  |  251 lines
  1.      'Dieses Programm schrieb fuer Sie
  2.      'Detlef Kornatz
  3.      'Feuerbachstasse 6
  4.      'D-4300 Essen 1
  5. '[][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][
  6.      SCREEN 2,320,256,5,1
  7.      WINDOW 2,,,16,2
  8.      CLS  
  9.      PALETTE 0,0.49,0.31,0   
  10.      FOR I=1 TO 8
  11.      PALETTE I,I/10,0,0
  12.      NEXT I
  13.      FOR I=1 TO 12
  14.      LINE (I+1,7+I)-(205-I,46-I),I-1,b    
  15.      LINE (I+206,7+I)-(312-I,46-I),I-1,b   
  16.      LINE (I+1,47+I)-(104-I,86-I),I-1,b
  17.      LINE (I+1,87+I)-(104-I,126-I),I-1,b
  18.      LINE (I+105,87+I)-(312-I,126-I),I-1,b
  19.      LINE (I+105,47+I)-(312-I,86-I),I-1,b   
  20.      LINE (I+1,127+I)-(312-I,246-I),I-1,b   
  21.      NEXT I
  22.      COLOR 9,0
  23.      LOCATE 4,5 :PRINT "DIE REIHENSCHALTUNG"
  24.      COLOR 11,0
  25.      LOCATE 4,31:PRINT "ENDE"
  26.      LOCATE 9,5:PRINT  "STROM"
  27.      LOCATE 9,16:PRINT " WIDERSTAND  Rg=R1+R2"
  28.      LOCATE 14,16:PRINT "SPANNUNG AM WIDERSTAND"
  29.      LOCATE 14,4:PRINT  "SPANNUNG"
  30.  anfang:
  31.      ON MOUSE GOSUB mausdruck
  32.      MOUSE ON
  33.      WHILE 1 : WEND
  34.  mausdruck:
  35.      druck=MOUSE(0)
  36.      x=MOUSE(3) : y=MOUSE(4)
  37.    IF x>20 AND x<90 AND y>60 AND y<75 THEN rg=0:sp=0:w=0:ww=0:GOSUB stro    'ok
  38.    IF x>20 AND x<90 AND y>100 AND y<113 THEN rg=0:sp=0:w=0:ww=0:GOSUB span    'ok
  39.    IF x>120 AND x<300 AND y>100 AND y<113 THEN rg=0:sp=0:w=0:ww=0:GOSUB span1 'ok
  40.    IF x>120 AND x<300 AND y>60 AND y<75 THEN rg=0:sp=0:w=0:ww=0:GOSUB wd
  41.    IF x>220 AND x<300 AND y>20 AND y<33 THEN GOSUB e
  42.    GOTO anfang
  43. stro:
  44.    SOUND 255,2,200
  45.    WINDOW 3,,(19,142)-(295,222),16,2
  46.    CLS
  47.    TIMER OFF
  48.    COLOR 10,0
  49.    INPUT "Widerstand R1 OHM: ";w
  50.    PRINT
  51.    INPUT "Widerstand R2 OHM: ";ww
  52.    rg=w+ww
  53.    PRINT  
  54.    INPUT "Spannung     VOLT: ";sp
  55.    PRINT 
  56.    COLOR 14,0 
  57.    PRINT "STROM =":LOCATE 7,9:PRINT USING "###.####";sp/rg
  58.    PRINT :LOCATE 7,20:PRINT "Amper" 
  59.    ON TIMER (4) GOSUB strom
  60.    TIMER ON
  61.    WHILE 4:SLEEP:WEND:END
  62. strom:
  63. CLS
  64.    WINDOW 2  
  65.    LINE (30,180)-(30,220),1
  66.    CIRCLE (30,225),4,,1
  67.    LINE (30,180)-(50,180),1
  68.    LINE (50,165)-(150,195),9,b
  69.    LINE (150,180)-(170,180),1
  70.    LINE (170,165)-(270,195),9,b
  71.    LINE (270,180)-(290,180),1
  72.    LINE (290,180)-(290,220),1
  73.    CIRCLE (290,225),4,,1
  74.    COLOR 15,0
  75.   LOCATE 20,12:PRINT USING"###.####";sp/rg:LOCATE 20,25:PRINT"AMPER"
  76.   LOCATE 23,5:PRINT ">"
  77.   COLOR 9,0
  78.   LOCATE 23,8:PRINT USING"#####.#";w:LOCATE 23,23:PRINT USING"#####.#";ww
  79.   LOCATE 23,16:PRINT  "OHM":LOCATE 23,31:PRINT"OHM"
  80.   COLOR 12,0
  81.   LOCATE 29,15:PRINT USING"######.##";sp:LOCATE 29,25:PRINT"VOLT"
  82.   I=sp/rg
  83.     COLOR 12,0
  84.   LOCATE 29,15:PRINT USING"######.##";I*rg:  LOCATE 29,25:PRINT"VOLT"
  85.   LOCATE 26,8 :PRINT USING"######.##";I*w:   LOCATE 26,16:PRINT"VOLT"
  86.   LOCATE 26,23:PRINT USING"######.##";I*ww:  LOCATE 26,31:PRINT"VOLT"
  87.   GOTO anfang
  88.   WINDOW CLOSE 2
  89.   WINDOW CLOSE 3 
  90.   RETURN
  91.     '-----------STROM-----ENDE--------------------------------------
  92. span:
  93.    SOUND 255,2,200
  94.    WINDOW 3,,(19,142)-(295,222),16,2
  95.    CLS
  96.    TIMER OFF
  97.    COLOR 10,0
  98.    INPUT "Widerstand R1 OHM: ";w
  99.    PRINT
  100.    INPUT "Widerstand R2 OHM: ";ww
  101.    rg=w+ww
  102.    I=sp/rg
  103.    PRINT  
  104.    INPUT "STROM       AMPER: ";I
  105.    PRINT 
  106.    COLOR 14,0 
  107.    PRINT "SPANNUNG =":LOCATE 7,13:PRINT USING "######.##";I*rg
  108.    PRINT :LOCATE 7,22:PRINT "VOLT"
  109.    ON TIMER (4) GOSUB spannung
  110.    TIMER ON
  111.    WHILE 4:SLEEP:WEND:END
  112. spannung:
  113. CLS
  114.    WINDOW 2      
  115.    LINE (30,180)-(30,220),1
  116.    CIRCLE (30,225),4,,1
  117.    LINE (30,180)-(50,180),1
  118.    LINE (50,165)-(150,195),9,b
  119.    LINE (150,180)-(170,180),1
  120.    LINE (170,165)-(270,195),9,b
  121.    LINE (270,180)-(290,180),1
  122.    LINE (290,180)-(290,220),1
  123.    CIRCLE (290,225),4,,1
  124.    COLOR 15,0
  125.   LOCATE 20,12:PRINT USING"###.####";I:LOCATE 20,25:PRINT"AMPER"
  126.   LOCATE 23,5:PRINT ">"
  127.   COLOR 9,0
  128.   LOCATE 23,8:PRINT USING"#####.#";w:LOCATE 23,23:PRINT USING"#####.#";ww
  129.   LOCATE 23,16:PRINT"OHM":LOCATE 23,31:PRINT "OHM"
  130.   COLOR 12,0
  131.   LOCATE 29,15:PRINT USING"######.##";I*rg:  LOCATE 29,25:PRINT"VOLT"
  132.     COLOR 12,0
  133.   LOCATE 29,15:PRINT USING"######.##";I*rg:  LOCATE 29,25:PRINT"VOLT"
  134.   LOCATE 26,8 :PRINT USING"######.##";I*w :  LOCATE 26,16:PRINT"VOLT"
  135.   LOCATE 26,23:PRINT USING"######.##";I*ww:  LOCATE 26,31:PRINT"VOLT"
  136.   GOTO anfang
  137.   WINDOW CLOSE 2
  138.   WINDOW CLOSE 3
  139.   RETURN
  140.  
  141.    '-----------SPANNUNG-----ENDE
  142. span1:
  143.      SOUND 255,2,200
  144.    WINDOW 3,,(19,142)-(295,222),16,2
  145.    CLS
  146.    TIMER OFF
  147.    COLOR 10,0
  148.    INPUT "Widerstand R1 OHM: ";w
  149.    PRINT
  150.    INPUT "Widerstand R2 OHM: ";ww
  151.    rg=w+ww
  152.    PRINT  
  153.    INPUT "STROM       AMPER: ";I
  154.    PRINT 
  155.    COLOR 14,0 
  156.    PRINT "SPANNUNG  =":LOCATE 7,13:PRINT USING "######.##";I*rg
  157.    PRINT :LOCATE 7,22:PRINT "VOLT"
  158.    PRINT "SPANNUNG 1=":LOCATE 8,13:PRINT USING "######.##";I*w
  159.    PRINT :LOCATE 8,22:PRINT "VOLT"
  160.    PRINT "SPANNUNG 2=":LOCATE 9,13:PRINT USING "######.##";I*ww
  161.    PRINT :LOCATE 9,22:PRINT "VOLT"
  162.    ON TIMER (5) GOSUB spann
  163.    TIMER ON
  164.    WHILE 5:SLEEP:WEND:END
  165. spann:
  166. CLS
  167.    WINDOW 2      
  168.    LINE (30,180)-(30,220),1
  169.    CIRCLE (30,225),4,,1
  170.    LINE (30,180)-(50,180),1
  171.    LINE (50,165)-(150,195),9,b
  172.    LINE (150,180)-(170,180),1
  173.    LINE (170,165)-(270,195),9,b
  174.    LINE (270,180)-(290,180),1
  175.    LINE (290,180)-(290,220),1
  176.    CIRCLE (290,225),4,,1
  177.    COLOR 15,0
  178.   LOCATE 20,12:PRINT USING"###.####";I:LOCATE 20,25:PRINT"AMPER"
  179.   LOCATE 23,5:PRINT ">"
  180.   COLOR 9,0
  181.   LOCATE 23,8:PRINT USING"#####.#";w:LOCATE 23,23:PRINT USING"#####.#";ww
  182.   LOCATE 23,16:PRINT"OHM":LOCATE 23,31:PRINT "OHM"
  183.   COLOR 12,0
  184.   LOCATE 29,15:PRINT USING"######.##";I*rg:  LOCATE 29,25:PRINT"VOLT"
  185.   LOCATE 26,8 :PRINT USING"######.##";I*w :  LOCATE 26,16:PRINT"VOLT"
  186.   LOCATE 26,23:PRINT USING"######.##";I*ww:  LOCATE 26,31:PRINT"VOLT"
  187.   GOTO anfang
  188.   WINDOW CLOSE 2
  189.   WINDOW CLOSE 3
  190.   RETURN
  191.   '------------------SPANNUNG 1+2 Ende--------------------------
  192. wd:
  193.        SOUND 255,2,200
  194.    WINDOW 3,,(19,142)-(295,222),16,2
  195.    CLS
  196.    TIMER OFF
  197.    COLOR 10,0
  198.    INPUT "SPANNUNG am R1 VOLT: ";v
  199.    PRINT
  200.    INPUT "SPANNUNG am R2 VOLT: ";vv
  201.    vg=v+vv
  202.    PRINT  
  203.    INPUT "STROM       AMPER: ";I
  204.    PRINT 
  205.    COLOR 14,0 
  206.    PRINT "WIDERSTAND Rg=":LOCATE 7,15:PRINT USING "######.##";vg/I
  207.    PRINT :LOCATE 7,25:PRINT "OHM"
  208.    PRINT "WIDERSTAND R1=":LOCATE 8,15:PRINT USING "######.#";v/I 
  209.    PRINT :LOCATE 8,25:PRINT "OHM"
  210.    PRINT "WIDERSTAND R2=":LOCATE 9,15:PRINT USING "######.#";vv/I 
  211.    PRINT :LOCATE 9,25:PRINT "OHM"
  212.    ON TIMER (5) GOSUB oh
  213.    TIMER ON
  214.    WHILE 5:SLEEP:WEND:END
  215. oh:
  216. CLS
  217.    WINDOW 2      
  218.    LINE (30,180)-(30,220),1
  219.    CIRCLE (30,225),4,,1
  220.    LINE (30,180)-(50,180),1
  221.    LINE (50,165)-(150,195),9,b
  222.    LINE (150,180)-(170,180),1
  223.    LINE (170,165)-(270,195),9,b
  224.    LINE (270,180)-(290,180),1
  225.    LINE (290,180)-(290,220),1
  226.    CIRCLE (290,225),4,,1
  227.    vg=v+vv: w=v/I:ww=vv/I 
  228.    COLOR 15,0
  229.   LOCATE 20,12:PRINT USING"###.####";I:LOCATE 20,25:PRINT"AMPER"
  230.   LOCATE 23,5:PRINT ">"
  231.   COLOR 9,0
  232.   LOCATE 23,8:PRINT USING"#####.#";w:LOCATE 23,23:PRINT USING"#####.#";ww
  233.   LOCATE 23,16:PRINT"OHM":LOCATE 23,31:PRINT "OHM"
  234.   COLOR 12,0
  235.   LOCATE 29,15:PRINT USING"######.##";vg :  LOCATE 29,25:PRINT"VOLT"
  236.   LOCATE 26,8 :PRINT USING"######.##";I*w:  LOCATE 26,16:PRINT"VOLT"
  237.   LOCATE 26,23:PRINT USING"######.##";I*ww:  LOCATE 26,31:PRINT"VOLT"
  238.   GOTO anfang
  239.   WINDOW CLOSE 2
  240.   WINDOW CLOSE 3
  241.   RETURN   
  242. e:
  243.   WINDOW CLOSE 3
  244.   WINDOW CLOSE 2
  245.   SCREEN CLOSE 2
  246.   END
  247.  
  248.  
  249.  
  250.  
  251.